home *** CD-ROM | disk | FTP | other *** search
/ Internet Publisher's Toolbox 2.0 / Internet Publisher's Toolbox.iso / html / htmlpro / lib / scm / sgml.err < prev    next >
Encoding:
Text File  |  1995-04-28  |  424 b   |  18 lines
  1. ; @(#)sgml.err    1.2 92/05/19
  2. ; Copyright (c) 1991, 1992 SoftQuad Inc.
  3. ((SGMLPRIMERR (lambda args
  4.         (let* ((errsym (car args))
  5.                (errprim (caddr args))
  6.                (errobjs (cdddr args))
  7.                (sp (open-output-string)))
  8.           (display "Error -- " sp)
  9.           (display errprim sp)
  10.           (display ":\n" sp)
  11.  
  12.           (for-each (lambda (x)
  13.                   (display x sp)
  14.                   (newline sp))
  15.                 errobjs)
  16.  
  17.           (get-output-string sp)))))
  18.